INFO "CIX Logon"
     SETUP (
     Stop=1 :
     Parity=none :
     Fail=None :
     Timeout=20 :
     Echo=off :
     Data=8 )
    EXISTS "m:\cix\rhsc_opt.001" GOTO T001
    EXISTS "m:\cix\rhsc_opt.002" GOTO T002
    EXISTS "m:\cix\rhsc_opt.003" GOTO T003
    GOTO misrate
T001::
    SETUP (BAUD=2400)
    INFO "Baud Rate set to 2400"
    WAIT 3
    GOTO misrate
T002::
    SETUP (BAUD=9600)
    INFO "Baud Rate set to 9600"
    WAIT 3
    GOTO misrate
T003::
    SETUP (BAUD=19200)
    INFO "Baud Rate set to 19200"
    WAIT 3
misrate::
    EXISTS "m:\cix\rhsc_opt.004" GOTO T004
    EXISTS "m:\cix\rhsc_opt.005" GOTO T005
    EXISTS "m:\cix\rhsc_opt.006" GOTO T006
    GOTO misshake
T004::
    SETUP (HANDSHAKE=rtscts,xonxoff)
    INFO "Handshaking set to Both"
    GOTO misshake
T005::
    SETUP (HANDSHAKE=rtscts)
    INFO "Handshaking set to RTSCTS"
    GOTO misshake
T006::
    SETUP (HANDSHAKE=xonxoff)
    INFO "Handshaking set to XonXoff"
misshake::
    ON send fail goto bad
    SET c1=4
rAlive:
		SEND "<initialise>"
    WAIT 20 ( ON reply "OK<$d><$a>" GOTO alive )
    ON c1 GOTO rAlive
    GOTO merror
alive:
    SET C1=9
    GOTO reDial   
wait100:
    INFO "Waiting to redial"
    WAIT 10
reDial:
    SEND "<prefix><CixNumber>"
    WAIT 120 (
	ON reply "CONNECT" GOTO letsgo
	ON reply "NO DIALTONE" GOTO tele
	ON reply "NO CARRIER" GOTO nocar
	ON reply "ERROR" GOTO black
	ON reply "BUSY" GOTO again )
    GOTO merror
again:
    ON c1 GOTO wait100
    ALERT "Line busy" : EXIT
letsGo:
    INFO "CONNECTED..."
    SENDWAIT 160 "<$d>";,"login:" GOTO noLog
    SENDWAIT 160 "qix<$d>";,"new user)" GOTO noUser
    SENDWAIT 130 "<CixUserName>","Password:" GOTO noPass
    SEND "<CixPassword>"
tryAgain:
    WAIT 100 (
	ON REPLY "Main:" GOTO gotMain
	ON REPLY "More" GOTO gotMore )
    ALERT "SOMETHING STRANGE"
gotMain:
    SEND "Q"
		SEND "OPTION DOWNLOAD X Q"
		SEND "OPTION UPLOAD C Q"
		SEND "Q"
    NEXISTS "loc::m:\cix\reply.txt" GOTO noup
		INFO "Starting Upload"
		SEND "UPLOAD"
		WAIT 5
		TRANSMIT "loc::m:\cix\reply.txt","XM1K"
		SEND "SCPUT SCRIPT"
		WAIT 5
		INFO "Running Script"
		SEND "SCRIPT"
noup:
    WAIT 5
		WAIT 100 (ON REPLY "Main:" GOTO swoff
		          ON REPLY "ain:" GOTO swoff
		          ON REPLY "y/n"   GOTO yorn)
		INFO "Problem! Disconecting"
swoff:
		INFO "Sending LOGOFF"
		SENDWAIT 20 "BYE","y/n" GOTO cont1
		SEND "Y"
cont1:
		INFO "Hanging UP!!"
		HANGUP
    INFO "Finished"
    EXIT
gotMore:
    WAIT 1
    SEND "n"
    GOTO tryAgain
yorn:
		SEND "Y<$d>"
		GOTO swoff
black:
    ALERT "Number dialled too many times" : EXIT
nocar:
    ALERT "No connection made" : EXIT
tele:
    ALERT "Check connected to telephone" : EXIT
merror:
    ALERT "Check modem connected" : EXIT
bad:
    ALERT "Check RS232 lead connected" : EXIT
noLog:
    ALERT "No Login received" : EXIT
noUser:
    ALERT "No user name" : EXIT
noPass:
    ALERT "No password" : EXIT
noMain:
    ALERT "No main"
    EXIT